home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / deleti1r / audiopla.frm < prev    next >
Text File  |  1999-08-27  |  39KB  |  1,258 lines
  1. VERSION 5.00
  2. Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Begin VB.Form frmAudioPlayer 
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "Audio player"
  8.    ClientHeight    =   4140
  9.    ClientLeft      =   2040
  10.    ClientTop       =   1755
  11.    ClientWidth     =   4590
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MDIChild        =   -1  'True
  17.    ScaleHeight     =   4140
  18.    ScaleWidth      =   4590
  19.    Begin VB.PictureBox picFrame 
  20.       AutoSize        =   -1  'True
  21.       Height          =   3375
  22.       Left            =   90
  23.       Picture         =   "AudioPlayer.frx":0000
  24.       ScaleHeight     =   3315
  25.       ScaleWidth      =   4395
  26.       TabIndex        =   6
  27.       Top             =   720
  28.       Width           =   4455
  29.       Begin VB.PictureBox picVolume 
  30.          BackColor       =   &H00C0C0C0&
  31.          Height          =   405
  32.          Index           =   0
  33.          Left            =   660
  34.          ScaleHeight     =   345
  35.          ScaleWidth      =   255
  36.          TabIndex        =   12
  37.          Top             =   2160
  38.          Width           =   315
  39.          Begin VB.CommandButton cmdVolDec 
  40.             BackColor       =   &H00C0C0C0&
  41.             Caption         =   "-"
  42.             BeginProperty Font 
  43.                Name            =   "MS Sans Serif"
  44.                Size            =   9.75
  45.                Charset         =   0
  46.                Weight          =   700
  47.                Underline       =   0   'False
  48.                Italic          =   0   'False
  49.                Strikethrough   =   0   'False
  50.             EndProperty
  51.             Height          =   330
  52.             Left            =   0
  53.             Style           =   1  'Graphical
  54.             TabIndex        =   13
  55.             Top             =   0
  56.             Width           =   255
  57.          End
  58.       End
  59.       Begin VB.PictureBox picVolume 
  60.          BackColor       =   &H00808080&
  61.          Height          =   405
  62.          Index           =   1
  63.          Left            =   1020
  64.          ScaleHeight     =   345
  65.          ScaleWidth      =   255
  66.          TabIndex        =   10
  67.          Top             =   2160
  68.          Width           =   315
  69.          Begin VB.CommandButton cmdVolInc 
  70.             BackColor       =   &H00C0C0C0&
  71.             Caption         =   "+"
  72.             BeginProperty Font 
  73.                Name            =   "MS Sans Serif"
  74.                Size            =   9.75
  75.                Charset         =   0
  76.                Weight          =   700
  77.                Underline       =   0   'False
  78.                Italic          =   0   'False
  79.                Strikethrough   =   0   'False
  80.             EndProperty
  81.             Height          =   345
  82.             Left            =   0
  83.             Style           =   1  'Graphical
  84.             TabIndex        =   11
  85.             Top             =   0
  86.             Width           =   255
  87.          End
  88.       End
  89.       Begin VB.ComboBox cboTrack 
  90.          BackColor       =   &H00C0C0C0&
  91.          BeginProperty Font 
  92.             Name            =   "MS Sans Serif"
  93.             Size            =   8.25
  94.             Charset         =   0
  95.             Weight          =   700
  96.             Underline       =   0   'False
  97.             Italic          =   0   'False
  98.             Strikethrough   =   0   'False
  99.          EndProperty
  100.          ForeColor       =   &H80000007&
  101.          Height          =   315
  102.          Left            =   150
  103.          TabIndex        =   9
  104.          Text            =   "Combo1"
  105.          Top             =   1380
  106.          Width           =   645
  107.       End
  108.       Begin VB.TextBox txtTimeRun 
  109.          Alignment       =   2  'Center
  110.          BackColor       =   &H80000001&
  111.          Enabled         =   0   'False
  112.          BeginProperty Font 
  113.             Name            =   "MS Sans Serif"
  114.             Size            =   9.75
  115.             Charset         =   0
  116.             Weight          =   700
  117.             Underline       =   0   'False
  118.             Italic          =   0   'False
  119.             Strikethrough   =   0   'False
  120.          EndProperty
  121.          ForeColor       =   &H80000003&
  122.          Height          =   345
  123.          Left            =   2970
  124.          TabIndex        =   8
  125.          Text            =   "txtTimeRun"
  126.          Top             =   930
  127.          Width           =   1275
  128.       End
  129.       Begin VB.CommandButton cmdCDLoad 
  130.          BackColor       =   &H00C0C0C0&
  131.          Caption         =   "~"
  132.          BeginProperty Font 
  133.             Name            =   "MS Sans Serif"
  134.             Size            =   13.5
  135.             Charset         =   0
  136.             Weight          =   700
  137.             Underline       =   0   'False
  138.             Italic          =   0   'False
  139.             Strikethrough   =   0   'False
  140.          EndProperty
  141.          Height          =   345
  142.          Left            =   3810
  143.          Style           =   1  'Graphical
  144.          TabIndex        =   7
  145.          ToolTipText     =   "Load CD"
  146.          Top             =   390
  147.          Width           =   495
  148.       End
  149.       Begin MSComctlLib.ProgressBar prgVolume 
  150.          Height          =   195
  151.          Left            =   1440
  152.          TabIndex        =   14
  153.          Top             =   2280
  154.          Width           =   2745
  155.          _ExtentX        =   4842
  156.          _ExtentY        =   344
  157.          _Version        =   393216
  158.          BorderStyle     =   1
  159.          Appearance      =   0
  160.       End
  161.       Begin MCI.MMControl mmControl1 
  162.          Height          =   375
  163.          Left            =   30
  164.          TabIndex        =   15
  165.          Top             =   360
  166.          Width           =   4290
  167.          _ExtentX        =   7567
  168.          _ExtentY        =   661
  169.          _Version        =   393216
  170.          DeviceType      =   ""
  171.          FileName        =   ""
  172.       End
  173.       Begin VB.Line Line1 
  174.          X1              =   1440
  175.          X2              =   4170
  176.          Y1              =   2190
  177.          Y2              =   2190
  178.       End
  179.       Begin VB.Line Line2 
  180.          X1              =   1440
  181.          X2              =   4170
  182.          Y1              =   2550
  183.          Y2              =   2550
  184.       End
  185.       Begin VB.Label lblTotalTrack 
  186.          BackColor       =   &H00C0C0C0&
  187.          Caption         =   "of total tracks:"
  188.          BeginProperty Font 
  189.             Name            =   "MS Sans Serif"
  190.             Size            =   8.25
  191.             Charset         =   0
  192.             Weight          =   700
  193.             Underline       =   0   'False
  194.             Italic          =   0   'False
  195.             Strikethrough   =   0   'False
  196.          EndProperty
  197.          ForeColor       =   &H80000007&
  198.          Height          =   255
  199.          Left            =   960
  200.          TabIndex        =   18
  201.          Top             =   1410
  202.          Width           =   1965
  203.       End
  204.       Begin VB.Label lblDuration 
  205.          BackColor       =   &H00C0C0C0&
  206.          Caption         =   "Duration:"
  207.          BeginProperty Font 
  208.             Name            =   "MS Sans Serif"
  209.             Size            =   8.25
  210.             Charset         =   0
  211.             Weight          =   700
  212.             Underline       =   0   'False
  213.             Italic          =   0   'False
  214.             Strikethrough   =   0   'False
  215.          EndProperty
  216.          ForeColor       =   &H80000007&
  217.          Height          =   255
  218.          Left            =   150
  219.          TabIndex        =   17
  220.          Top             =   990
  221.          Width           =   825
  222.       End
  223.       Begin VB.Label lblDurationValue 
  224.          BackColor       =   &H00C0C0C0&
  225.          Caption         =   "lblDurationValue"
  226.          BeginProperty Font 
  227.             Name            =   "MS Sans Serif"
  228.             Size            =   8.25
  229.             Charset